   3 .HANGMAN
   5 .BY CARL MORIMOTO
   6 .
  10 :return 
 100 NT=0;clear ;&(10)=174;FC=0
 110 Z=-62;M=-15;L=-19
 120 S=32;J=500
 130 T=0;E=0;U=0
 200 CX=28;CY=L;print "HANGMAN
 210 CX=-77;CY=5;NT=2;print "ENTER";print "WORD";print "FROM";print "KEYPAD";CX=-71;CY=-31;print "right 
 220 CX=-62;CY=-31;A=1
 230 if A=0A=1
 240 if A>22goto 310
 250 B=KP;MU=B;if B=13goto 310
 260 if B#31goto 280
 270 if A>1TV=B;TV=S;TV=B
 275 A=A-1;goto 230
 280 if B>64if B<91TV=45;goto 300
 290 B=S;TV=S
 300 @(A)=B;A=A+1;goto 230
 310 C=A-1;NT=0
 320 box -63,-7,35,35,2;box -72,-31,5,5,2
 330 BC=85+Cmul 8
 340 box 0,-25,131,1,1
 350 box -39,5,2,60,1
 360 box -26,34,24,1,1
 370 box M,L,21,11,1;box M,L,19,10,2
 380 &(10)=160;CX=-62;CY=-40
 390 NT=10;for A=1to C;TV=@(A);next A
 400 NT=0
 500 N=KN(1)div 8+77
 510 if N<65N=65
 520 if N>90N=90
 530 if N#T CX=Z;CY=40;TV=N;T=N;TV=95
 540 if TR(1)=0goto J
 545 CX=CX-6;NT=10;TV=42;NT=0
 550 if E=0goto 590
 560 for A=1to E
 570 if N=@(A+22)goto J
 580 next A
 590 @(E+23)=N;E=E+1
 600 R=0;D=0
 610 for A=1to C
 620 if @(A)=S R=R+1
 630 if @(A)#Ngoto 670
 640 CX=Z;CY=40;TV=S;TV=S
 650 CY=-31;CX=-62+(A-1)mul 6
 660 NT=20;TV=N;NT=0;@(A)=S;D=1;R=R+1
 670 next A
 680 if D=0goto 800
 690 if R<Cgoto J
 700 CX=28;CY=20;print "SAVED
 710 NT=5;for A=1to 10;BC=252;MU=52;next A;NT=0
 750 if TR(1)=0goto 750
 760 goto 100
 800 Z=Z+6;NT=20;MU=24;NT=50;MU=10;NT=0
 810 U=U+1;goto Umul 50+950
1000 G=L;H=-21;goto 1060
1050 G=-11;H=-9
1060 box G,2,5,4,1;box G,-5,3,19,1;box H,-12,3,2,1;goto J
1100 box M,6,9,11,1;box M,14,3,4,1;goto J
1150 box M,23,9,3,1;box M,21,15,2,1;box M,17,11,6,1;box M,17,15,3,1
1160 box M,18,7,3,2;box M,18,1,3,1;box M,15,5,5,1;goto J
1200 G=-7;goto 1260
1250 G=-22
1260 box G,9,6,3,1;goto J
1300 G=-5;H=-7;goto 1360
1350 G=-24;H=-23
1360 box G, 5,4,5,1;box G,1,2,4,1;box H,0,1,3,1;goto J
1400 box M,30,1,10,1
1410 NT=30;box M,19,5,2,1;box -16,17,2,1,2;box -13,17,2,1,2;NT=0;goto J
1450 box M,L,21,11,2;BC=67
1600 A=48;B=49;C=50;E=45;F=43
1610 &(10)=174;NT=10
1620 MU=B;MU=A;MU=A;MU=B;MU=A;MU=B;MU=B;MU=A;MU=A;MU=F;MU=C;MU=A;MU=C;MU=C;MU=C;MU=A;MU=B;MU=B;MU=A
1630 MU=E;MU=B;MU=B;MU=A;MU=A;MU=A;NT=0;goto 750
:return ;run 
